home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ IE Logos.xpl < prev    next >
Text File  |  2003-11-20  |  3KB  |  96 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="3"
  3. "COUNT"="3"
  4. "UIPATH"="Internet\Internet Explorer\Appearance"
  5. "NAME"="Picture Options"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="1.55"
  8. "TEXT 1"="Big Picture"
  9. "TEXT 2"="Small Picture"
  10. "TEXT 3"="Toolbar Picture"
  11. "DATA 1"="Bitmaps (*.bmp)|*.bmp"
  12. "DATA 2"="Bitmaps (*.bmp)|*.bmp"
  13. "DATA 3"="Bitmaps (*.bmp)|*.bmp"
  14. "DESCRIPTION 1"="Some vendors use customized versions of Internet Explorer where the "e" logo in the upper right corner has been changed. If you want to have the default icons of Internet Explorer, clear both fields."
  15. "DESCRIPTION 2"="To create your own logo, create two bitmaps: one with 38x38 pixels (height/width) and another with 22 pixels."
  16. "DESCRIPTION 3"="Then draw the different stages of the animation inside the bitmaps (from top to bottom), where the first pictures will be displayed if Internet Explorer does nothing."
  17. "DESCRIPTION 4"="If you are finished with it, enter the name for the 38 pixel-picture in "Big Picture" and the one with 22 pixels in "Small Picture"."
  18. "DESCRIPTION 5"="Toolbar Picture: You can change the background of the toolbar to any BMP picture. If you want to have the default background back, clear the field and click "Apply". In this case, a restart of your PC is required."
  19. "AUTHOR"="Xteq Systems"
  20. "CONTACTURL"="http://www.xteq.com"
  21. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  22. "COMMENT 1"=" "
  23. "COMMENT 2"="Thanks to CptSiskoX for his help!"
  24.  
  25.  
  26.  
  27. Sub Plugin_Initialize 
  28.  if RegPathExists("HKCU\Software\Microsoft\Internet Explorer") then
  29.     v1=RegReadValue("HKCU\Software\Microsoft\Internet Explorer\Toolbar\BrandBitmap")
  30.     v2=RegReadValue("HKCU\Software\Microsoft\Internet Explorer\Toolbar\SmBrandBitmap")
  31.     v3=RegReadValue("HKCU\Software\Microsoft\Internet Explorer\Toolbar\BackBitmapIE5")
  32.  
  33.  
  34.     SetUIElement 1,v1
  35.     SetUIElement 2,v2
  36.     SetUIElement 3,v3
  37.  else
  38.     Disable
  39.  end if
  40. End Sub
  41.  
  42.  
  43. Sub Plugin_CheckData(ElementIndex)
  44. End Sub
  45.  
  46.  
  47.  
  48. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  49.  s=GetUIElement(1)
  50.  if s="" then
  51.   if IsEmpty(v1) then 
  52.      If IsEmpty(RegReadValue("HKCU\Software\Microsoft\Internet Explorer\Toolbar\BrandBitmap"))=false then
  53.         Call RegDeleteValue("HKCU\Software\Microsoft\Internet Explorer\Toolbar\BrandBitmap")
  54.      end if
  55.   end if
  56.  else
  57.   Call RegWriteValue("HKCU\Software\Microsoft\Internet Explorer\Toolbar\BrandBitmap",s,1)
  58.  end if
  59.  
  60.  
  61.  s=GetUIElement(2)
  62.  if s="" then
  63.   if IsEmpty(v2) then 
  64.      If IsEmpty(RegReadValue("HKCU\Software\Microsoft\Internet Explorer\Toolbar\SmBrandBitmap"))=false then
  65.         Call RegDeleteValue("HKCU\Software\Microsoft\Internet Explorer\Toolbar\SmBrandBitmap")
  66.      end if
  67.   end if
  68.  else
  69.   Call RegWriteValue("HKCU\Software\Microsoft\Internet Explorer\Toolbar\SmBrandBitmap",s,1)
  70.  end if
  71.  
  72.  
  73.  s=GetUIElement(3) 
  74.  if len(s)=0 then
  75.     'delete it
  76.     s=RegReadValue("HKCU\Software\Microsoft\Internet Explorer\Toolbar\BackBitmapIE5")
  77.     if IsEmpty(s)=false then
  78.        Call RegDeleteValue("HKCU\Software\Microsoft\Internet Explorer\Toolbar\BackBitmapIE5")
  79.     end if
  80.  else
  81.    'write it
  82.    Call RegWriteValue("HKCU\Software\Microsoft\Internet Explorer\Toolbar\BackBitmapIE5",s,1)
  83.  end if
  84.  
  85.  
  86.  
  87.  Call Logoff()
  88. End Sub
  89.  
  90.  
  91. Sub Plugin_Terminate 
  92. End Sub
  93.  
  94.  
  95.  
  96.